unit DM_API_Server_Defines;

interface

uses
 Classes;

type
 Settings = class(TPersistent)
  private
   FPort: Integer;
  public
   constructor Create(AOwner: TComponent);
   //destructor Destroy; override;
   procedure Assign(Source: TPersistent); override;
  published
   property Port: Integer read FPort write FPort;
 end;

const
 PortDefault = 9999;
 CRLF = #13#10;

var
 PluginsPath: String = '';
 mySettings: Settings = nil;

implementation

{ Settings }

constructor Settings.Create(AOwner: TComponent);
begin
 Port:=PortDefault;
end;
{
destructor Settings.Destroy;
begin
 inherited Destroy;
end;
}
procedure Settings.Assign(Source: TPersistent);
begin
 if Assigned(Source) then
  begin
   if Source.ClassNameIs(Self.ClassName) then
    begin
     Self.Port:=(Source as Settings).Port;
    end;
  end;
end;


end.
